home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tex / style / misc / alltt2.sty < prev    next >
Text File  |  1995-11-25  |  2KB  |  48 lines
  1. %%% ====================================================================
  2. %%%  @LaTeX-style-file{
  3. %%%     author          = "Mario Wolczko",
  4. %%%     version         = "2",
  5. %%%     date            = "21 May 1992",
  6. %%%     time            = "20:53:23 BST",
  7. %%%     filename        = "alltt2.sty",
  8. %%%     address         = "Dept of Computer Science
  9. %%%                        The University of Manchester
  10. %%%                        Oxford Road
  11. %%%                        Manchester M13 9PL
  12. %%%                        UK",
  13. %%%     telephone       = "+44-61-275-6146",
  14. %%%     FAX             = "+44-61-275-6236",
  15. %%%     checksum        = "29088 47 178 1848",
  16. %%%     email           = "mario@cs.man.ac.uk (Internet)",
  17. %%%     codetable       = "ISO/ASCII",
  18. %%%     keywords        = "LaTeX, verbatim",
  19. %%%     supported       = "no",
  20. %%%     docstring       = "Modification of the alltt style to indent
  21. %%%     alltt environments by \allttindent parameter",
  22. %%%  }
  23. %%% ====================================================================
  24.  
  25. % ALLTT2 DOCUMENT-STYLE OPTION - modified from alltt of 17 December 1987
  26. %    for LaTeX version 2.09
  27. % Copyright (C) 1987 by Leslie Lamport
  28.  
  29. % same as alltt (q.v.), but has a parameter length (\allttindent) that
  30. % controls how much an allt environment is indented wrt it's context.
  31.  
  32. \newdimen\allttindent \allttindent=0pt % set this to change the indent
  33.  
  34. \def\docspecials{\do\ \do\$\do\&%
  35.   \do\#\do\^\do\^^K\do\_\do\^^A\do\%\do\~}
  36.  
  37. \def\alltt{\trivlist \item[]\if@minipage\else\vskip\parskip\fi
  38. \leftskip\@totalleftmargin  \advance\leftskip\allttindent \rightskip\z@
  39. \parindent\z@\parfillskip\@flushglue\parskip\z@
  40. \@tempswafalse \def\par{\if@tempswa\hbox{}\fi\@tempswatrue\@@par}
  41. \obeylines \tt \catcode``=13 \@noligs
  42. \let\do\@makeother \docspecials
  43.  \frenchspacing\@vobeyspaces}
  44.  
  45. \let\endalltt=\endtrivlist
  46.  
  47.  
  48.